CU Amiga Super CD-ROM 6/CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso/cucd/magazine/pd_utils/agassm/rexx/objecttype,b.agassm

Text File | 1996-03-30 | 2KB | 74 lines

/* AGASSM - Script to set object type */
/* © 1995 Paul Vernon */

Port = Show('P','AGASSM')
If Port = 0 then do
  Exit
  End

ADDRESS COMMAND 'C:RequestFile > T:AGASSM-Temp TITLE "AGASSM - Specify pattern" NOICONS'

succ = Open(file,'T:AGASSM-Temp','r')
If succ = 0 then do
  Exit
  End
String = ReadLn(file)
succ = Close(file)

ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'

Select
  When String == '' then
    Exit
  When String = '""' then
    String = '"#?"'
  Otherwise
End

String = Left(String,Length(String)-1)
String = Right(String,Length(String)-1)
TestString = Right(String,1)

Select
  When TestString == '/' then
    Filename=String'#?'
  When TestString == ':' then
    Filename=String'#?'
  Otherwise
    Filename=String
End

ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - ObjectType" "'Filename'" "Animation|Module|ARexx|Sample|Picture"'

succ = Open(file,'T:AGASSM-Temp','r')
If succ = 0 then do
  Exit
  End
ObjectType = ReadLn(file)
succ = Close(file)

ADDRESS COMMAND 'C:Delete T:AGASSM-Temp'

If ObjectType = '0' then do
  ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - Viewmode" "'Filename'" "HBrite|HAM6/8|Normal"'
  End
If ObjectType = '1' then do
  ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - Viewmode" "'Filename'" "HBrite|HAM6/8|Normal"'
  End
If ObjectType = '2' then do
  ADDRESS COMMAND 'C:RequestChoice > T:AGASSM-Temp "AGASSM - ModuleType" "'Filename' " "ST|MED"'
  End

Mode = '0'
succ = Open(file,'T:AGASSM-Temp','r')
If succ ~= 0 then do
  Mode = ReadLn(file)
  succ = Close(file)
  ADDRESS COMMAND 'C:Delete T:AGASSM-Temp'
  End

ADDRESS 'AGASSM'
SETOBJECTTYPE Filename ObjectType Mode

Exit